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PREFACE 


This  document  is  a companion  document  to  the  Federal  Aviation 
Administration  report,  "ILS  Glide  Slope  Perforaance  Prediction: 
Multipath  Scattering,"  and  contains  the  coaputer  prograa  for  apply- 
ing the  aodel  developed  in  the  aforeaentioned  report.  The  coaputa- 
tional  prograa  nay  be  u^ed  to  predict  the  perforaance  of  new  ILS 
glide  slope  systems,  or  aodified  existing  systeas.  The  manual 
contains  a coaplete  description  of  the  glide  slope  systen,  the 
program  listings,  and  step-by-step  instructions  for  running  the 
computer  program. 
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1.  INTRODUCTION:  DEFINITION  OF  INSTRUMENT  LANDING  SYSTEM 


In  a previous  report,*  a computer  program  (ILSGLD)  was  written 
to  simulate  certain  terrain  conditions  which  affect  the  glide  slope 
portion  of  the  Instrument  Landing  System  (ILS).  The  ILSGLD  model 
was  developed  to  treat  one -dimensional  terrain  variations.  This 
report  describes  a generalized  version  of  ILSGLD  which  treats  two- 
dimensional  ground  plane  variations,  and  which  is  able  also  to 
simulate  the  effects  of  scattering  from  planar,  randomly  oriented 
rectangular  surfaces.  A technical  mathematical  analysis  of  the 
system  is  described  in  a separate  report.** 

The  ILS  is  used  to  provide  signals  for  the  safe  navigation 
of  landing  aircraft  during  periods  of  low  cloud  cover  and  other 
conditions  of  restricted  visual  range.  Separate  systems  are  used 
to  communicate  vertical  and  horizontal  information;  the  vertical 
system  is  called  the  "glide  slope."  This  system  operates  by  the 
transmission  of  an  RF  carrier,  amplitude  modulated  by  two  audio 
frequencies,  and  beamed  ;o  approaching  airborne  receivers.  In  an 
instrumented  aircraft,  che  glide  slope  receiver  serves  to  demodulate 
the  RF  signal,  amplify  and  isolate  the  corresponding  audio  signals 
and  derive  a signal  to  drive  the  ILS  vertical  display  in  the 
cockpit.  The  pilot,  by  reading  the  display,  can  determine  if  he  is 
on  course,  above  or  below  the  glide  path.  These  signals  must  be 
strong  enough  to  cover  a radius  of  15  miles  in  front  of  the 
antenna . 


"ILS  Glide  Slope  Performance  Prediction,"  FAA  RD  74-157B, 
Part  II.  9/74. 

FAA,  ILS  Glide  Slope  Performance  Prediction1  Multipath 
Scattering,  In  Preparation. 


The  directional  information  is  determined  by  the  relative 
strengths  of  the  transmitted  sideband  signals.  The  audio  frequency 
modulations,  which  are  fixed  at  90  and  150  Hz,  are  radiated  in 
different  angular  patterns  with  respect  to  the  intended  glidepath. 
The  "course"  is  defined  as  the  locus  of  points  where  the  amplitudes 
of  the  two  modulations  are  equal.  The  display  of  a difference  of 
the  amplitudes  (90  and  150  Hz)  of  the  sidebands  is  referred  to 
as  the  Course  Deviation  indication.  Thus,  the  CDI  is  the  pilot's 
indication  as  to  what  his  deviation  is  relative  to  the  glidepath. 

The  CDI  is  measured  in  microamperes.  The  actual  course  generated 
by  any  particular  ILS  installation  will  deviate  from  the  ideal 
because  of  irregularities  in  the  terrain.  The  deviation  of  the  CDI 
caused  by  these  irregularities,  from  the  ideal  receiver  reading  at 
that  point  in  space  (e.g.,  on  the  glidepath  a CDI  reading  other  than 
0)  is  the  derogation  effect. 

The  glide  slope  system  transmits  an  asymmetrical  pattern  by 
beaming  a "carrier  plus  sideband"  pattern  and  a "sideband  only" 
pattern,  the  composite  of  which  gives  the  desired  effect. 


2.  ANTENNA  PATTERNS 


The  proper  angular  variation  of  the  transmitted  99  and  150  Hz 
modulation  is  achieved  by  the  radiation  of  the  two  independent  side- 
band patterns  by  the  transmitting  antenna.  One  pattern,  the  "car- 
rier plus  sideband"  (OS)  signal,  is  radiated  in  a symmetrical  pat- 
tern; the  other  pattern,  the  "sideband-only"  (SO)  signal,  is 
radiated  in  an  "anti-symmetrical"  pattern  relative  to  the  prescribed 
glide  angle  (see  Figure  1). 

Th;  C+S  signal  is  composed  of  a carrier  wave  and  paired  side- 
band waves  at  90  and  150  Hz.  The  sideband  amplitudes  are  equal  and 
represent  a 40  percent  modulation  of  the  carrier  wave  (or  a "depth 
of  modulation"  of  0.4)  at  both  frequencies.  The  SO  wave  is  a 
carrier  wave  that  is  equally  modulated  at  90  and  150  Hz  to  the 
extent  that  it  retains  no  pure  carrier  component. 

The  spatial  modulation  pattern  obtained  by  combining  the 
symmetrical  C+S  pattern  with  the  "anti-symmetrical"  SO  pattern  is 
illustrated  in  Figure  1.  At  a given  receiver  point  the  total 
signal  is  the  C+S  carrier  plus  the  combined  sideband  amplitudes  of 
the  C-»S  and  SO  patterns.  The  sideband  amplitudes  are  phased  so 
that  above  the  glide  path  the  90  Hz  amplitudes  add  and  the  150  Hz 
amplitudes  subtract,  while  below  the  glide  path,  the  90  Hz  ampli- 
tudes subtract  and  the  150  Hz  amplitudes  add. 

Any  angular  deviation  of  the  airplane's  receiver  from  the 
correct  course  results  in  a "Difference  in  Depth  of  Modulation" 

(DDM)  between  the  150  and  90  Hz  signals.  Since  the  trength  of 
C+S  and  SO  signals  fall  off  at  the  same  rate  with  distance  from 
the  transmitting  antenna,  the  DDM  is  independent  of  range. 
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The  antenna  patterns  are  generated  by  using  arrays  of  one  or 
■ore  elements  in  coabination  with  the  ground  as  reflector.  The 
effect  of  an  ideal  ground  plane  on  a single  elenent  is  ;ts  though 
there  was  an  "image"  element  located  below  the  ground  and  radiating 
equal  power  to  the  real  element  but  with  opposite  phase.  In  a 
glide  slope  array  there  will  be  two  or  more  elements  radiating 
different  signals  to  give  the  desired  combined  antenna  pattern. 

(Note  that  this  means  that  a glide  slope  array  is  defined  by  giving, 
for  each  element,  its  location  and  complex  amplitude  of  the 
carrier  and  sidebands.)  However,  the  real  ground  is  not  an  ideal 
plane.  This  has  the  effect  of  distorting  the  element  patterns  and 
results  in  a derogation  of  the  glide  slope  system  performance. 

The  extended  glideslope  derogation  simulation  package  consists 
of  five  programs.  They  are: 

FMAKE.F4  Used  to  generate  input  files  for  the  simulation. 
ILSVEN.F4  Simulates  the  one-dimensional-variation  ground.  Takes 
input  prepared  by  FMAKE.  Outputs  the  complex  field 
instensities  at  the  various  receiver  locations. 

M0LE.F4  Simulates  the  scattering  from  a rectangular  planar 

surface  with  arbitrary  orientation.  Takes  as  input 
the  data  output  from  ILSVEN.  Outputs  a new  set  of 
fields. 

GLDCDI.F4  Simulates  the  effects  of  the  receiver,  including  CDI 
determination  and  dynamic  smoothing  from  the  insiru- 
mentation. 

Produces  graphical  presentations  of  the  CDI  results 
from  the  simulation.  Takes  as  input  the  data  file 


GLDPLT.F4 


I 
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j output  from  GLDCDi.  Outputs  graphs  of  various  forms 

I as  determined  by  the  user. 

I The  inputs  and  operation  of  these  programs  will  be  given  in 

the  following  sections. 

The  basic  procedure  is  to  prepare  the  input  with  FMAKE.  The 

| ground  effects  are  determined  by  running  ILSVEN.  The  output  is  a 

' data  file  containing  the  antenna  descriptors,  the  receiver  locations 

and  the  complex  field  intensities  for  the  carrier  and  sidebands.  If 
desired  GLDCDI  may  be  run  at  this  point  to  produce  the  CDI's  that 
would  be  produced  by  this  , round  configuration,  antenna  system, 
and  flight  path.  If  additional  scatterers  are  involved  such  as 
j buildings  or  hills,  they  may  be  represented  as  rectangular 

i 

surfaces  and  the  derogation  effects  added  with  MOLE.  MOLE  may  be 
used  as  often  as  needed  to  include  any  number  of  scattering 
surfaces.  After  all  surfaces  have  been  included  GLDCDI  is  run  to 
generate  the  CDI  file  for  input  to  the  graphing  program.  GLDPLT  is 
then  run  to  generate  the  graphs  required. 
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3.  GROUND  EFFECT  SIMULATION  WITH  ILSVEN 


The  ILSVEN  program  simulates  the  effects  of  a non-planar 
ground  on  the  glide  slope  antenna  system. 

The  program  uses  a ground  description,  an  antenna  description 
and  a set  of  spatial  coordinates  for  the  receiver  locations  as 
input.  The  program  calculates  the  outlets  for  each  receiver 
location,  the  complex  values  of  the  fields  for  carrier  and  side- 
bands that  would  be  received  at  that  location.  This  represents  the 
summation  of  the  direct  fields  from  each  antenna  element  and  the 
fields  from  each  antenna  element  scattered  from  the  parts  of  the 
ground  ''plane."  Additionally  the  fields  that  would  be  produced 
by  an  ideal  ground  plane  are  included.  This  allows  comparison 
with  flights  that  do  not  have  a simple  ideal  GDI  along  the  flight 
path,  for  example,  flights  at  right  angles  to  the  glide  path  such 
as  are  used  to  determine  the  course  width. 

The  ILSVEN  simulation  makes  cer'.ain  simplifying  assumptions. 

They  include: 

a.  Perfectly  reflecting  ground  surface 

b.  Far-field  scattering- -all  scattering  from  points  on  the 
ground  surface  is  assumed  independent  of  all  other  points;  thus 
multiple  reflections  and  near-field  interactions  are  ignored 

c.  Noise-free  environment 

d.  Relative  field  strengths -- the  absolute  field  strengtns 
involved  are  not  calculated.  Thus,  while  the  CDI's  can  be  calculated 
in  microamperes,  the  absolute  electric  field  intensities  are  not 
ascertained, 


e.  Geometric  shadowing* -the  shadowing  oi  one  portion  of  the 
ground  on  another  is  done  by  straight  ray  approximations  assuming 
a total  cutoff  with  no  diffraction,  and 

f.  Antenna  elements  are  assumed  to  be  simple  dipoles. 

3.1  METHOD  OF  SIMULATION 

An  antenna  element  is  described  by  giving  its  x , y-  and  z- 
coordinates  and  the  complex  amplitudes  of  its  radiated  amplitude 
at  the  three  frequencies  (carrier,  150  and  90  Hz  sidebands). 

The  ground  is  broken  up  into  strips;  these  strips  have  an  infinite 
width  and  a finite  length.  The  infinite  extent  is  parallel  to  the 
y-axis,  that  is  at  a right  angle  to  the  runway  centerline.  Thus, 
a ground  strip  is  described  by  giving  the  x and  z-coordinates 
ot  the  leading  and  trailing  edges  of  the  strip.  A receiver  loca- 
tion is  described  by  giving  its  time,  x-,  y and  z-cooiiinates . 

The  basic  part  of  the  simulation  consists  of  calculating  the 
field  at  a receiver  location.  This  field  is  caused  by  the  power 
radiated  from  an  element  and  reflected  from  a strip.  The  receiver 
field  can  be  expressed  as  a complex  gain  factor  times  the  radiated 
antenna  field.  This  gain  factor  is  expressed  as  a double  integral 
over  the  strip.  The  integration  along  the  infinite  extent  (y  axis 
direction)  was  approximated  by  using  the  stationary  phase  method. 
The  resulting  single  integral  is  solved  by  a modified  trapezoid 
rule.  The  trapezoid  rule  is  used  with  the  spacing  between  sample 
points  adjusted  for  the  derivative  of  the  integrand. 

Thus,  for  a given  receiver  location,  the  program  takes  an 
ant.ci.na  element  and  calculates  the  "gain  factor"  for  each  ground 
strip,  multiplies  by  the  radiated  power,  and  sums  the  three  complex 
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field  intensities  for  all  ground  strips.  The  direct  field  of  the 
element  at  the  receiver  is  then  added.  This  process  is  repeated 
for  all  elements,  giving  the  total  field  at  the  receiver.  For 
comparison  purposes  the  fields  resulting  from  an  ideal  ground  plane 
are  calculated.  The  location  of  the  receiver  (x-,  y-,  and  t 
coordinates)  are  output  along  with  the  six  complex  field  intensit  • 
numbers.  This  is  then  repeated  for  each  receiver  location  in  the 
input  file. 

If  the  terrain  is  sufficiently  irregular,  part  of  the  energy 
radiated  toward  a point  on  the  ground  may  be  intercepted  by  another 
piece  of  the  ground  closer  to  the  antenna.  This  shadowing  is 
complex  including,  as  it  does,  diffraction  as  well  as  reflection. 
This  is  approximated  in  the  simulation  by  using  ray  optics;  that  is, 
the  shadow  is  assumed  to  have  no  diffraction  at  the  edges  and  a 
zero  field  amplitude  inside  of  the  shadow.  The  program  does  this 
by  assuming  the  ground  is  continuous;  i.e,  tho  far  edge  of  one 
strip  is  the  near  edge  of  the  next,  and  keeping  track  of  the 
"furthest"  (in  angular  sense)  edge.  If  part  (or  all)  of  the  next 
strip  is  "below"  that  edge,  then  that  part  (or  all)  will  not  be 
included  in  the  trapezoid  integration.  For  example  in  the  sketch 
below:  . 


antenna  start 


all  of  strip  I,  none  of  strip  II  and  that  part  of  strip  III  between 
D and  E will  be  included  in  the  integration. 

For  the  receiver  antenna  a "semi"  directional  antenna  is 
assumed;  that  is,  only  the  incident  fields  from  the  front  half- 
sphere around  the  receiver  are  included.  This  is  as  though  an 
omni-directional  antenna  was  used  but  blocked  by  the  fuselage  from 
receiving  signals  from  the  direction  of  the  tail.  This  is  done  in 
the  program  by  stopping  the  summation  of  fields  over  the  ground 
strips  at  a point  directly  below  the  receiver. 

The  back  half-plane  is  assumed  to  be  an  ideal  flat  horizontal 
reflector  of  infinite  extent.  The  field  from  this  is  included  by 
adding  the  "gain  factor"  for  this  as  an  initial  strip  to  that 
calculated  by  integrating  over  the  "real"  strips. 

3.2  OPERATION 

ILSVEN  assumes  the  ground  description  is  a file  called 
GRND.DAT,  and  that  the  receiver  locations  are  in  a file  called 
PATH.DAT.  The  user  starts  the  program  and  then  inputs  the  name  of 
the  file  containing  the  antenna  description.  The  simulation  will 
be  run,  and  the  output  will  be  found  in  file  STRIP.DAT. 
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4.  ADDITION  OF  SCATTERERS  WITH  MOLE 


MOLE  is  used  to  include  the  derogation  effects  of  finite 
scatterers.  This  would  include  sides  of  buildings  and  other  man- 
made objects  composed  of  flat  rectangular  surfaces.  In  addition 
portions  of  the  ground  surface  such  as  hills  can  be  siaulated  if 
they  may  be  represented  by  rectangular  pieces.  The  program  takes 
as  input  a file  generated  by  ILSVEN.  This  contains  the  antenna 
and  flight  path  descriptions  along  with  the  complex  fields 
scattered  from  the  ground  for  both  the  non-planar  ground  simulated 
and  for  the  ideal  ground  case.  The  program  adds  to  these  fields 
the  fields  resulting  from  scattering  from  the  piece  being  simulated 
and  outputs  a new  data  file  containing  the  input  data  with  revised 
values  for  the  complex  fields.  The  output  file  being  in  the  same 
format  as  the  input  file  allows  this  output  to  be  used  as  the  input 
for  another  run  of  the  MOLE  program.  This  permits  the  user  to 
continue  to  add  in  the  effects  of  as  many  scatterers  as  desired. 

The  simulation  makes  certain  simplifying  assumptions.  They 
include  those  explained  for  ILSVEN.  In  additior,  the  ground 
surface  for  the  MOLE  simulation  is  assumed  to  be  the  ideal  flat 
horizontal  ground  plane.  Thus  the  multiple  reflections  from  the 
antenna  element  to  ground  to  scatterer,  and  from  scatterer  to 
ground  to  receiver,  are  done  using  a simple  ground  plane. 

To  operate  the  program  the  user  will  have  previously  run  ILSVEN 
to  simulate  the  terrain  involved  When  MOLE  is  run,  the  program 
will  request: 


INPUT  FILE  NAME: 


The  user  types  in  the  name  of  the  file  output  from  ILSVEN.  This  is 
initially  named  STRIP.DAT,  but  may  have  been  renamed  by  the  user  if 
there  is  more  than  one  simulation  to  be  done. 

The  program  will  then  request: 

OUTPUT  FILE  NAME: 

The  user  then  types  in  the  name  to  be  given  to  the  file  to  be  out- 
put from  MOLE.  This  file  will  contain  the  modified  filed  values  in 
addition  to  the  antenna  and  flight  path  data  from  the  input. 

The  program  will  then  read  *n  the  piece  description  data  from 
unit  20.  (Normally,  it  is  a disk  file  FOR20.DAT.)  These  data  are 
in  free-field  general  FORTRAN  format  (3G) . The  data  consist  of  the 
x - , y-,  and  z-coordinates  for  the  four  corners  of  the  rectangle, 
one  set  of  coordinates  oer  line.  The  corners  are  described  in  the 
order  that  they  vrould  be  scanned  in  traveling  around  the  perimeter 
of  the  rectangle  in  a clockwise  direction.  In  this  sense,  the 
rectangle  is  assumed  to  be  facing  the  user.  Fo.  example,  the 
coordinates : 

0.0.0, 

1.0.0, 

1.0.1,  and 

0.0.1, 

describe  a square,  one  foot  on  a side,  situated  on  the  centerline 
of  the  runwav  oriented  with  one  side  on  the  centerline  on  the  ground, 
and  one  side  vertical  at  the  origin.  The  "front"  of  the  square  is 
facing  in  the  positive  y-direction.  See  figure  example  (Figure  2). 

The  program  will  then  e;,ecute  the  simulation,  output  the  new 
file,  and  terminate.  Multiple  runs,  scatterers  and  input  cases  may 
be  set  up  using  the  usual  batch  control  features. 


b.  CDI  DETERMINATION  USING  GLDCDI 


The  output  files  from  ILSVEN  and  MOLE  contain  the  complex 
field  intensities  for  the  carrier  and  sidebands  for  the  cases 
simulated.  For  analysis  purposes  the  user  would  usually  wish  to 
see  the  CDI's  produced.  The  difference  between  these  and  the 
correct  CDI's  is  the  derogation  that  would  affect  the  pilot  in 
the  case  being  studied.  This  CD!  generation  is  done  by  GLDCDI. 

The  pregram  will  calculate  the  CDI  for  joth  the  static  case  and 
for  a dynamic  case  using  the  smoothing  time  constant  input  in 
FMAKE. 

To  operate  the  program  the  user  runs  GLDCDI.  The  program 
will  request: 

INPUT  FILE  NAME: 

The  user  then  types  in  the  name  of  the  file  (generated  by  ILSVEN  or 
MOLE).  The  program  will  then  request: 

OUTPUT  FILE  NAME: 

The  user  then  types  in  the  name  of  the  file  to  be  used  for  the  output 
file.  The  program  will  then  execute  and  terminate.  The  output 
file  contains  the  CDI's  static  and  dynamic  for  both  the  simulation 
and  the  ideal  ground  case.  The  various  CDI's  may  he  graphic  using 
GLDPLT. 
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6.  FHAKE  PR06RAM  DESCRIPTION 

FKAKE  is  a file  generation  program  used  to  create  input  files 
for  IL5VEN.  It  is  designed  to  be  used  interactively.  The  user 
starts  by  running  the  program.  The  program  will  respond  by  typing: 
INPUT  SWITCH: 

The  user  then  types  in  a single  character  switch,  folloned  by  a 
<CR>,  for  the  file  he  wishes  to  generate.  The  prograa  will  then 
respond  with  a request  for  the  input  required  for  that  file.  If 
a blank  is  used  as  the  input  switch  the  prograa  will  terainate. 

If  any  character  other  than  those  explained  below  are  used,  ».n 
error  aessage  will  be  given.  After  each  file  is  generated,  the 
prograa  will  return  to  the  switch  input  point  thus  allowing  the 
user  to  generate  the  data  files  for  aany  simulation  runs  in  one 
sitting. 

(N.B.  All  units  are  in  feet  unless  otherwise  stated) 

6.1  SWITCH*  Y 

For  this  switch  (Y)  , the  prograa  will  type: 

INPUT  YO,  LAMBDA: 

The  user  then  inputs  in  free  field  format  the  y-offset  (i.e.,  the 
y-coordinate)  of  the  antenna  elements  and  the  wavelength  of  the 
carrier,  followed  by  a <CR>.  The  y-offset  is  the  distance  from 
the  base  of  the  antenna  to  the  centerline  of  the  runway.  As  this 
information  is  required  for  both  the  antenna  description  and  the 
flight  path,  it  is  input  wth  a separate  switch  to  avoid  repetition. 

6.2  SWITCH:  G 

This  switch  (G)  is  used  to  input  the  ground  description. 


The  program  will  respond  with: 


INPUT  GROUND  FILE  NAME: 


The  user  ther  inputs  a <five(5)  character  name  for  the  ground 
description  file,  followed  by  a <CR>.  ILSGLD  requires  the  ground 
file  to  be  called  GRND.DAT.  (The  .DAT  extension  is  a system  default.) 
FMAKE  allows  the  user  to  generate  several  ground  files  with  different 
names  at  one  sitting.  Then  by  using  system  renaming  commands,  a 
single  batch  job  may  be  set  up  that  will  run  many  simulations  without 
further  user  interactions. 

The  program  will  then  type: 

INPUT  GROUND  LABI  l. . 

The  user  then  inputs  up  to  40  characters  to  be  used  as  a label  for 
this  ground  description.  Ihe  label  is  carried  ir.  the  ground  de- 
scription file  and  will  be  placed  in  the  output  file  bv  ILSGLD. 

It  allows  the  GI.DPI.T  program  to  label  the  plot*  with  the  ground 
description.  This  is  necessary  if  a batch  job  generates  plots  from 
more  than  one  simulation. 

The  program  will  then  type: 

INPUT  GROUND  SEGMl  NTS . STARTING  FROM  ANTINNA  GIVI-.  CONSECUTIVE- 
LY LITKF.R  X ASP  Z INCREMENTS  OR  THE.  LENGTH  AND  ANGLE  FROM 
HORIZONTAL  IN  DEGREES,  SEPARATED  BV  A ZERO.  HIT  CARRIAGE 
RETURN  FOR  END  OF  DATA,  OR  IF  THERl  ARl  NO  MORI  STRIPS. 

The  U'cr  inputs  ground  strip  end  point*  in  either  Cartesian  or 
polar  increment*  using  two  or  three  iclds  respectively.  lhe\ 
arc  input  in  floating  free  field  format  followed  by  a ^CR  . The 
fir*t  point  1*  taken  relative  to  the  origin  and  is  the  near  edge 
of  the  closest  *tf'p  to  the  antenna.  The  second  point  i*  the 
far  edge  of  the  fir*t  strip  and  the  near  cd^e  of  the  second  strip. 
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This  second  point  is  relative  to  the  first.  This  will  continue  for 
additional  strips  until  a <CR>  is  hit  with  no  data,  at  which  point 
the  prograta  will  return  to  the  switch  input.  For  example  to  input 
this  profile: 


The  input  would  be 

0.  ,0. 

1200 . , 0 . , - . 6 
0.,  -100. 

2400.,  170. 

There  is  a maximum  of  20  strips  allowed  in  both  FMAKE  and 
ILSGLD.  This  is  determined  by  array  sizes  and  could  be  changed  if 
desired. 

6.3  SWITCH:  P 

This  is  used  to  generate  a flight  path  file.  The  program  will 
respond : 

INPUT  FLIGHT  PATH  FILE  NAME: 


The  user  then  inputs  a five  (5)  character  file  name  (the  name  must 
be  exactly  S characters).  ILSGLD  requires  the  flight  path  to  he  in 


a file  called  PATH.DAT  (for  explanation  of  multiple  files  see 
SWITCHrG).  Tht  program  will  then  type: 
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INPUT  FLIGHT  PATH  TITLE: 

The  user  then  irputs  a title,  using  up  to  40  characters,  for  the 
flight  path.  This  is  used  as  a label  on  the  plots  ouput  by 
GLDPLT.  The  program  will  then  type: 

INPUT  FLIGHT  PATH  TYPE: 

The  user  has  a choice  of  two  flight  path  types,  linear  or  hyperbolic. 
For  a linear  flight  path,  typa  a <CR>;  for  a hyperbolic  path  type 
a 1 G'  followed  by  a <CR>.  When  it  is  a linear  flight  the  program 
will  respond: 

INPUT  X0,  Y0,  Z0: 

The  user  then  inputs  the  x-,  y-,  and  z-coordinates  of  the  first 
receiver  point  in  free  field  floating  point  format  followed  by  a 
<CR> . The  program  will  respond: 

INPUT  XF,  YF,  ZF: 

The  user  then  inputs  the  final  receiver  location  in  the  same  way. 

The  program  then  types: 

INPUT  # OF  POINTS,  VELOCITY,  TIME  CONSTANT: 

The  user  then  inputs  the  total  number  of  receiver  locations  desired 
in  integer  free  field  format,  followed  by  the  velocity  of  the  air- 
craft in  feet/sec.  in  floating  point  free  field  and  the  time 
constant  in  seconds  (usually  0.4)  used  for  the  "inertia"  of  the 
receiver  in  dynamic  simulation.  The  program  will  then  generate  the 
data  file  and  return  to  the  SWITCH  POINT. 

The  actual  ideal  surface  of  zero  CDI  is  a hyperboloid  of  two 
sheets  whose  axis  of  rotation  is  parallel  to  the  z-axis  and  passes 
through  the  antenna.  For  comparison  purposes  it  is  convenient  to 


have  the  aircraft  travel  along  this  surface  and  see  how  the  real 
CDI  deviated  from  0.  If  the  glide  path  is  used  for  linear  flight 
in  the  near  field  (between  threshold  and  antenna)  large  CDI's  will 
occur  because  of  the  hyperbolic  shape.  The  program  will  allow  the 
user  to  gererate  a hyperbola  which  is  the  intersection  of  the  0 
CDI  surface  and  the  plane  containing  the  runway  centerline  parallel 
to  the  z-axis.  To  do  this  the  user  types  a 'G'  for  the  flight  path 
type.  The  program  will  respond: 

INPUT  XO,  XF,  H: 

The  user  inputs  these  in  floating  point  free  field  format 
followed  by  a <CR>.  XO  is  the  x-coordinate  of  the  initial  receiver 
point  'YO  is  zero  and  ZO  is  specified  by  the  hyperboloid) , XF  is 
the  x-coordinate  of  the  final  receiver  point.  H is  the  height  of 
the  main  carrier  element  in  the  antenna  array.  The  program  will 
then  respond: 

INPUT  # OF  POINTS,  VELOCITY,  TIME  CONSTANT 
These  are  input  as  above.  The  program  will  generate  the  file  and 
return  to  the  switch  point. 

6.4  SWITCH:  A 

This  switch  is  used  to  generate  the  antenna  description  file. 
The  program  will  respond: 

INPUT  ANTENNA  FILE  NAME: 

The  user  inputs  the  5 character  file  name.  The  program  will  type: 
INPUT  ANTENNA  DESCRIPTION: 

The  user  inputs  a <40  character  antenna  description  to  be  used  as 
a plot  label.  The  program  will  then  type: 


INPUT  ELEMENT  VALUES- 


The  user  then  types  in,  in  free  field  floating  format,  a maximum 

of  8 fields  followed  by  a <CR> . The  fields  have  the  following 
use: 


field  « 


use 


1 x-coordinate  of  element  (usually  0) 

2 a-coordinate  of  element  (height) 

3 real  amplitude  of  carrier 

4 imaginary  amplitude  of  carrier 

5 real  amplitude  of  150  Hz  side  band 

6 imaginary  amplitude  of  150  Hz  side  band 

7 real  amplitude  of  90  Hz  side  band 

8 imaginary  amplitude  of  90  Hz  side  band 
This  element  inputting  is  repeated  for  each  element.  After  the 
last  element  is  input  an  extra  carriage  return  is  typed.  No 
y-coordinate  is  input  for  the  elements.  This  is  because  nominally 
all  the  elements  have  the  same  y offset  (the  value  input  as  YO 
under  switch:Y).  However,  a small  offset  correction  is  applied 
for  near  field  ccrrection.  An  explanation  of  this  correction  may 
be  found  in  part  I (see  discussion  preceeding  Eq.  (33)).  This  is 
automatically  done  by  the  program.  As  the  first  element  input  is 
assumed  to  have  the  correct  offset,  it  will  always  have  a value 

of  YO.  Thus  the  main  carrier  element  should  be  input  first,  for 
example,  a null  reference  antenna  was  input  as  follows: 


INPUT  SWITCH:  Y 

INPUT  YO,  LAMBDA:  300.  , 3. 


7.  GLDPLT  PROGRAM  DESCRIPTION 


GLDPLT  is  a plotting  output  program  to  graph  the  CDI  informa- 
tion from  GLDCDI.  The  user  runs  GLDPLT  which  then  types: 

INPUT  FILE  NAME  AND  AXIS  TYPE: 


The  user  then  types  in  a 5 character  (left- justified  and  blank 
filled  to  5 characters)  and  two  integer  fields  in  free  field 
format.  The  first  integer  is  the  switch  for  x-axis  type  and  the 
second  integer  is  the  switch  for  the  y-axis.  The  y-switch  has 
two  values,  1 and  2,  the  x-switch  has  three  1,  2,  and  3;  any  other 
values  will  terminate  the  program. 

The  switches  have  the  following  use: 
y-switch*l  this  plots  the  static  CDI  values 
y-switch*2  this  plots  the  dynamic  CDI  values 
x switch*l  this  uses  the  altitude  angle,  in  degrees 
measured  from  the  origin  of  the  receiver 
point  as  x-coordinate 

x-switch*2  this  uses  the  x-coordinate  of  the  receiver 
as  the  x-axis 

x-switch-3  usee  the  time  in  seconds,  at  the  receiver 
point,  as  the  x-coordinate. 

After  the  input,  a plot  is  generated  and  the  program  returns  to 
the  input  and  asks  for  the  data  for  the  next  plot.  The  user  can 
give  the  same  file  name  to  plot  the  data  differently,  or  a new 
file  name  can  be  given.  This  would  be  done  when  multiple  runs 
were  done  before  plotting,  the  output  file  from  each  simulation 
run  carrying  its  own  name. 
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INPUT  SWITCH:  A 

INPUT  ANTENNA  Fli-S  NAME: 
INPUT  ANTENNA  DESCRIPTION 
NULL  REFERENCE  ANTENNA 
INPUT  ELEMENT  VALUES 
0. , 15. . 1. , 0. , .4,  0. , 
0. , 30. , 0. , 0. , - .12.  0. 


NULL 


.4,  0. 

, .12,  0. 
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this  opens  The  Output  file 
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this  section  inputs  the  ground  strips  occsriptions 
call  IPILC(2frG"NQM 
REaO(2«.1BBB)  ila»l 
HRlTdl.llfB)  ILABL 
NEAOI2B)  X. XI. 21. X}, 23 

call  RELIAI  (2ft)  . 
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THIS  SECTION  INPgTS  THE  ANTENNA  P]LE  NAME  TO  BEUSEO 
THEN  INPUT!  the  ANTENNA  ELEMENT  OESCPJPflONS 
HRiTris.tMD 

FORMAT ( ' INPUT  ANTENNA  PILE  NAMEl',S> 

READ  11*21111  ILBL  ..  

PORMAT(AS) 

call  |PILE(2B.ILBL) 
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OlMENifON  ILA8LI8) 

OlMEItlON  IFT0ATI33)  . _ . . _ 

COMMON  /PLXT/  NRP  > RXHN  > RXNX . RXF  T , RxiT . R TmN, RVMX  • RTFT  . RTLT . 

1 RZhN. RZHX  . RIFT  i RUT  . RTHN. RTMX .RTFT,  RTtT  « 

2AtMN. AtHX. AIFT  .AILT. ARMN. ARNX. ARFT, ARLT, 

3.40.IN.  AOIX.  ADlF^AfllU  ..  

4AORN.AORX.aORF.aORL 
EOul VALENCE  (IRTO*T(l).NRR) 

IHRLICJT  COMPLEX  «C> 

01M£M$10N  X(28>, von. 2(21)  . . 

dimension  cri<2»>.er?<2#>.crs<2R> 

jneuciT.flauHu  frecisioii -tm 

COMMON  /REC/RX.RY.RZ.RT.NSIZE 
REAL  LAMBDA 

COMMON  /OROUNO/  K. X1I2R > • Zl< 28) • X2(|/28) . l2<8/2(> • 1EL 
COMMON  /ANT/AX, AV.AZ.LAN80At0AK.0PI 
COMMON  /VAL/  MR. MI 

c this  value  of  tmo  pi  is  i n i t iVl-! *co ~tmT*  "wav  fclivoioTiliRS 

C BLOCK  DATA 

OPI •4,28318938717998*47*9 
MRIT|C5.2M1> 

2M1  FORMAT  I ' INPUT  FILE  N*M£i*,$) 

REA0IS.2OIL.UJL  . 

2HP  format*  an  ) 

CALL  lFILC<2>.tLBL) 

WRITE (9. 1882) 

2883  FORMAT* ' OUTPUT  FIlE  NAMEI'.S) 

REA0I9.2888)  IlBL 

CALL  QFlLEU.lLBL*  „ . _ 

MRlTtM)  IPTOAT 
READIER. 1888)  IlABl.TAU 
WRITE (1.1(88)  ILABL 

00  3 1*1.2 
REA0I28.1S8(>  ILABL 

3 . WRlTEii.lIM)  ILABL  ....  ._  
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2(1  REa0I28.2(S9.EN0*2(()  RX.RV.RZ.RT, 
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DIMENSION  |TY*E<J.?> 

DATA  ITYPE/'STaTJ'.'C  V*L,.'U£S,,,OTN*»',.,lC  TA'.'IU t*v 
Data  PIO.MO/’COtO*.  •tmEOO'/ 

0Im£v$I0N  9MCC(4>.MX(2.3) 

Data  SPACE/1.. 2. ,2. 5. 9./ 

Data  Iax/’DECRE'.  'ES'. ' FEET*,*  • , 'SESOX' . *01 V 
data  prx.prt.pre.prt.pai ,p*r/ 
I'RX'.'Rt'.'RE'.'RT'.'CDP.'TMEO*/ 

OI**E*SJO»l  JPT0ATCJ3) 

COMMON  /*TXXN/NRP.PXHN,gxnX,RXFT1gxi.T,PYilH.»yX>.*YFT,«ri.Y, 
:R2MN,REMX,R2rT,R2LY,RTMN.RTMX,RTFT,RTLT, 
2A!MN«AjnX.iirT,AlLT,ARMN.*RPX.ANFT«AllLT. 
3AD|N,AnlX.AOIF.AOtL.»ORN.AORX,AORF,40RL 
EQUIVALENCE  UPT9AT(1).N»P) 

DIMENSION  ILABL ( ( > 

DATA  XLEN.TLEN.ITIC/2t.. 8. .21/ 

DIMENSION  DTK 2«tl > 

OInensiqn  ox(2gag),OY(2tta) 

namelist  /freo/  tleng.ydel.ysc.omin.onax.oel.iimsc 

CALL  PLOTScIBUr, 368.161 
3 MRiTru.iaaP) 

Hit  FORMAT ( 1 INPUT  file  Name  and  axis  TtPES|*,S) 

REACis.irasi  name. tsx, iST, bouno 
lies  formatiaj.i.i.F) 

IF ( 1ST  .lT.  1)  GO  to  284 
IF ( 1ST  ,6T.  2)  GO  TO  284 
IF ( I SX  .LT.  1)  CO  TO  >84 
IFIISX  .ST.  3>  GO  TO  284 
Call  PlOT(8..-12,.-3) 

CALL  >L0T(8,.1.,-3j 
1*8 

CALL  IF  I lE ( 28 . NAME ) 

READ ( 26  ) JPTOAT 
WRITE! 3.1882)  NRP 

i8t2  formatc  there  afe*,h,*  receiver  points’; * ./» 

WR|Tf (3.1883) 

1883  FORMAT !14X, 'HIM* ,9X. 'MAX' .#X, *F|RST*,»X, 'LAST* ,/) 

1884  F0RMAT(lX,AS,lX,4Fl2.4) 

HR ! TE ( 3 . 1884 ) PRX . RXMN , RXMX, RXF T , RXlT 
WRITE (3. 1884)  PRT.RTMN.RTMX, RTF T .RV^T 
WRITE (3. 1884)  PRI.R2MN.R2MX.R2rT.R2LT 
WR  Pf  (3, 1884)  PRT.RTMN.RTHX,  RTF  T.RT^T 
WRITE (3. 1884)  PA  I, AlMN.AlMX.AirT.AiLT 
WR I TF ( 3 • 1884 ) PAR . ARMN , ARMX , ARF T , AR^T 
WRITE (3. 1884)  RIO.AOlN.AOIX.AOIF.AOtL 
HR  I Tf ( 3 , 1884 ) PRO . AORN , AORX . AQRF . ADRL 
CAS0R8, 

GASUrB , 

GArN*8. 

00  7 11*1.3 
RE  AO (28. 188)  lLARL 
WR I T£ ( 3 . 181 > ILABL 
181  FORMAT (IX, 8AS ) 


cujfur.r* 

744 

V27(34f)  22«*M-?4  111*4 

94 

144 

709l*T (449) 

n 

C*LL  9 7140L < 4 • • 4 • • . 2 • 1 1481 . 44 . > 44 ) 

M 

7 

CllL  *1.07 ( . 3.4 . • -3 ) 

97 

C*ll  $Yi|0L(4. .4. • .2.1 T79Ell. IS* > >44. >191 

M 

C*Li  11.0712.  >4. 1*3) 

51.  „ 

1 

"£40(24.  UM.ElO*2>  X.Y.i.T.c.l.CQ.M 

II 

1444 

70«m*T(471 

U 

TEll4S017U«X.V«Y) 

•a 

17((Tcm1  .lT.  3944.)  .04.  (7EH  .67,  21714 

u 

C4Su.64SU*C 

♦4 

6*90*6430*60 

tL 

6»CN»6*CS*1. 

44 

44 

CONTINUE 

47 

t»I«l 

44 

CO  79  (314.3411  1S» 

44 

344 

CONTINUE 

7* 

07(J1«C 

— U 

071CU.9 

71 

GO  ti  s«2 

71 

341 

OYUI.CD 

74 

07i( tl.BO 

79 

342 

CONTINUE 

74 

CO  Yfl  (244.241.2421  141 

n 

244 

OKI  l.*T*42li.$0*T(*»I,r»71 1.97. 2492 

71 

CO  79  it* 

74 

241 

0KI1.1 

•4 

CO  7(5  i*t 

41 

242 

01(11*7  i 
CO  ’9  l«t 

42 

JO- 

144 

17(1  11  CO  TO  144 

14 

0H)N*D1( t ) 

49 

01*1*01(1) 

•4 

144 

OH1N**1|N1101|«I,01(I)1 

47 

01*1141*11(01*1.01(1)) 

44 

1441 

7091*7(91.371 

_4» 

17  ( 1 .IT.  24941  60  TO  1 

44 

2 

17(1  ,iT.  2 ) CO  TO  3 

41 

YlEN6*»l*Xl ( * 111 . *45 (40UN0) .-*111.1.) 

42 

1 7 ( *1$ ( BOUND  1 ,lT.  1.7-4)  80  70  14 

11 

70EL4YLE16 

44 

CO  TO  11 

49 

14 

YLElGaAlAXl ( TLENC.  *911.  .*9H) 

♦4 

70EL»7|.0*T(17ll(rLCNC/7LEN)  ) 

17 

7LE1«*70EL*7LE1 

41 

11 

C*LL  *1113(4.  .4.. -»(.ENC.7UElC.70EL.YLll, 

41 

l,«IC»0*H»E4ES\ll,i.l.,7SC) 

111 

1P*|»I1(*LOG14(01*1-OU1) )-) 

Ul — 

70**14. **19  _ 

tit 

00  124  J»1.4 

Ill 

0El*I9*CE(J)*70* 

114 

|T.iri*(01*l/OEL-l,  >*l-17IX(01IN/DEt.) 

149 

17(17  .LT.  I T 1 C ) CO  To  121 

1M 

121 

CONTINUE 

ftt 


IMH-’t  Hi*4 


lit 
111 
it* 
It I 
iU 
111 
U1 
11* 
ttl 
lit 

ur 

u* 

n* 

m 

m 

ill 

in 

ll< 

1»» 

111 

tl» 

111 

tit 

111 

111 

111 

HI 

lit 

lit 

111 


111 


till 

t 


I 

lit 


D»’ltf(.OtTi  It  1 * 9"t>>/D£c  >*St. 

D«t l«rL0»’ i If  I > I - . l -3»t l/Bl . • : ■ *5tl 

!«!!•  ,c».  t>  ft 

iii«iit..t. imi.iiii-i 

etii  »tofii..'L«/i..-ji 

stu. 

•*:'Tii.tnoi 

etc L ltO*MDl ( 1 . -D-’l 1 / IIC.3* ‘ ' /•«.!' 
■•I'fii.iWi)  riMi.8«iu.:Mii. 

OtlctCiSJt.T/Ct  !»/•»». 

UUldSK . 7/StCI/llt. 

Stic. kid. lies 

tO»»t»r  ITtTIC  «U»  ttftlt  tMOIf  .1./ 
i*.  -»st«:c  «tt<i  »*c  t imta'.i. in, 'Muttt’.rt.ii 
DO  « jii.l 

"•••f'l.ltttl  Dll.l.0»l.l.8".l  . 

CteL  tlO’IIDtljofitKl/tSC.OTic/’lC.ll 

1»I»0U*D  .1’.  *. I SO  **  I 

It.*» 

Cl..  »(.<•»(  I0»!1I-D*1<I I 'lie.  .»lU>/»tC.ll 
DO  t t«l. I 

etc  »io”ijt(jitD«:ti/«t!.  »i > . i/*te.ti»t 

II. ■•-IS- 

etc.  *1. D*( licit  1.  ..I  ,-ll 
cc  •:  i 

:t  *lD*h.  .ttt 


>C  I 


c#t.k  c«:* 

r*- 

^QNIt^nrs 

* 

1 

1 

* 

1? 

(HIJIMMT 

1J 

;» 

II40MI7MI 

21 

•«3A03J4?’? 

M 

SI 

s* 

S? 

co*»**o«. 

*»•• 

/•Til*  /.f 

• f«S 

/>*HS  /♦* 

IVMIl 

/*Ti*\  /*«» 

• *«<i 

/•’ I * S /*% 

•«•* 

/•Ti*\  /*:2 

•If* 

/t*«iS  /*1S 

*trt 

/•TgIS  /**.t 

• T * 

/**UN  /*2f 

111! 

/•7|«S  /.2« 

*•*% 

/»*»«•!  /*as 

«C!s 

/•T««S  / * 31 

toil 

/e*<»K  /»32 

tD*> 

/•T«1S  / . J4 

AQ»f 

/»*HS  /•S'* 

2 

J 

2 9 If •••••••• 

4 

7 

}iy99HHMi 

w 

WINNHH 

u 

i« 

IlflMlINfl 

it 

itttttttMM 

11 

u 

««*»J939:fSt 

22 

tMlllltlttt 

tl 

?• 

17 

u 

11 

14 

S* 

4|«l 

/•T**S  /.f 

•if’ 

/•’«*•»  fi 

• iC* 

MfT 

/»Tg»S  /*7 

/• 7g ••  /•:# 

• *"* 

*|lt 

/•*«»*  /• 1 4 

• 7HS 

/•71*s  /•!! 

• 7h| 

1 |MS 

/•*»*%  /.j; 

4|<U 

/•’«»>  /•!! 

AffT 

/•** 

*•*’ 

/•*!«*  /*|7 

*K' 

• 3 J* 

/77|»l(  /♦« 

AG  U 

/•run  / *34 

aO»N 

/•♦!>*•  /*4f 

/»T*iN  ✓ 

|)luSl«tll« 

iMUimtii 

tlttitiiiiit 

lIltlMNIH 


/trill  /tt 

/•Till  ftU 
/•TUN  /t}« 
/inn  /t|i 

/i'n»  /•» 

/tTiii  /t» 


litttCSttM 


00*1.7. F« 

F4I 

V2’f3*C> 

22-AM 

•7* 

11**4 

" ri'll. 

.j»rr 

Ullfl. 

*U>TS 

ALAMO. 

alAmi. 

1MT0. 

INTI. 

flout. 

runt. 

'LOT 

ifilc 

•IKK*. 

ITNML  (NO 

**•* 

»*»«? 

a«!ni 

AM*  XI 

AlS 

Float 

IF  IX 

i«l$! 

A10C1A 

cxAi.a 

NNLIT, 

exit 

•01**1 

. '10 

1111 

MD 

1231 

MX 

1131 

FIT 

3331 

Ml 

1*34 

its* 

mai 

123* 

A** 

113* 

XlCN 

1343 

Til* 

1141 

i*ic 

ii*> 

*lc*c 

12*3 

70CL 

1144 

TIC 

1341 

DO  IN 

1144 

B*»« 

lt*» 

OCl 

129* 

!* 

11*1 

X*C 

1393 

IMF 

1193 

*»"t 

11*4 

II* 

1299 

117 

1394 

•0U*0 

139* 

1 

1*43 

» 

MXNN 

1 

MM 

1 

*XFT 

3 

KILT 

4 

I*N* 

a 

MTMX 

* 

wt 

1 

"YL7 

U . 

•INK 

u 

it 

MifT 

13 

Ml* 

14 

UTMM 

19 

• INS 

14 

•TFT 

i* 

MTI.T 

21 

At  NM 

11 

AIM* 

33 

4IFT 

II 

»UT 

»4 

A*NN 

29 

AAMX 

14 

AAFT 

1* 

4NLT 

31 

lOlN 

31 

*0 1 X 

32 

AOIF 

33 

AOK 

34 

4DNN 

39 

*D*« 

34 

*oxr 

3? 

AO*L 

43 

6AS0 

1341 

OtU 

1143 

. J»C» 

1343 

II 

12*« 

X 

1349 

Y 

1344 

I 

T 

I3*t 

c 

1221 

* 

11*1 

CO 

13*1 

ND 

11*9 

AO* 

127* 

J 

11** 

IT 

1333 

1 1' 

mi 

»**»T| 

iTT't 

1341 

S«C£ 

131* 

u* 

1314 

lATQAT 

1 

IOII 

lUI 

3*1 

1331 

ox 

9292 

nx 

111*1 

62 


Ail 

n 

92 

A01* 

If 

48 

AO  iu 

11 

45 

A 0 1 N 

11 

45 

*0  I X 

If 

45 

AOir 

If 

46 

AORt 

If 

46 

aORn 

If 

46 

ApRX 

If 

46 

Airr 

If 

43 

Ml  T 

If 

43 

A|MN 

If 

4 3 

91 

MMX 

If 

43 

91 

ALOC10 

Iff 

♦5 

AMAX1 

97 

91 

amjni 

a* 

ARri 

if 

44 

ARtT 

if 

44 

A»mn 

it 

44 

95 

ARM* 

if 

44 

95 

,.AUii2 

77 

4X153 

98 

ill 

aouno 

23 

91 

92 

125 

r. 

59 

63 

7fl 

CO 

59 

64 

73 

Oil 

19 

11*3 

if  4 

187 

iei 

111 

pMAX 

19 

85 

87 

Iff 

1«4 

i?e 

111 

0*1* 

19 

84 

86 

Iff 

184 

ip? 

ill 

ox 

18 

77 

79 

81 

84 

85 

8* 

07 

18 

7f 

73 

115 

11* 

123 

124 

071 

17 

7* 

74 

116 

123 

1?7 

129 

C*IT 

134 

Fvo*T 

9* 

lM 

« *8 

■ >R£D 

19 

114 

SACN 

49 

65 

117 

118 

119 

G 4X0 

47 

64 

118 

119 

GAIU 

49 

63 

117 

119 

77 

1 

31 

67 

7f 

71 

73 

74 

99 

-if 

12? 

178 

MX 

4 

6 

Ill 

i Bur 

21 

ihlc 

32 

If  U 

94 

IMP 

1*4 

187 

1*8 

11 

51 

UAH 

15 

51 

52 

55 

IP 

19 

19? 

1*‘ 

179 

111 

lit 

IRTOAT 

9 

14 

33 

tlu 

12* 

I3f 

I5K 

23 

2 7 

78 

76 

111 

1 $7 

23 

25 

76 

57 

69 

IT 

1*4 

1 95 

1 T | C 

1* 

195 

ityrc 

: 

2 

57 

124 

115 


81 


127 

111 


121 

l?3 


83  M 


124  127  129 


15  81  17 


63 


J 

in 

123 

122 

123 

1?« 

NAME 

23 

32 

Jtf 

11 

14 

34 

PAl 

7 

43 

FA* 

7 

44 

*10 

9 

45 

FtOT 

29 

3P 

56 

58 

112 

HOT* 

2* 

...  JNIN 

101 

1*3 

P*0 

3 

4* 

PUT 

7 

42 

PH* 

7 

39 

pm 

7 

4P 

"M 

7 

41 

nxm 

It 

n 

59 

71 

*0 

99 

74 

PTPT 

It 

4? 

PTWT 

it 

4 2 

PTNN 

19 

42 

_ _BJKX 

It 

42 

PKfT 

It 

39 

RXLT 

11 

39 

PXMN 

It 

39 

RXHX 

It 

39 

PYfT 

It 

4P 

. _ *YlT 

It 

4? 

PYHH 

It 

4? 

RYMX 

it 

49 

Rirr 

It 

41 

Pill 

11 

41 

MN* 

It 

41 

RlHX 

It 

41 

SPACE 

A 

5 

1X3 

SO** 

91 

77 

SYMIOU 

59 

57 

T 

59 

81 

TE#P 

61 

62 

__  .X 

59 

61 

77 

79 

XKN 

It 

111 

113 

131 

xsc 

19 

111 

115 

124 

127 

T 

99 

61 

77 

YOU 

19 

93 

96 

97 

98 

YLCN 

19 

96 

97 

98 

112 

YilliO 

19 

91 

93 

95 

96 

YSC 

19 

91 

115 

124 

127 

2 

59 

77 

121  12* 

11J  111  124  127  12*  111  111 


12* 

47  *1 

129 


i 


it 

59 

89 

28 

59 

98 

at- 

21 

98 

132 

48 

122 

124 

_.  48 

128 

138 

78 

58 

54 

_..  58 

125 

131 

188 

92 

95 

lit- 

94 

98 

688 

62 

66 

1888 

51 

54 

1818 

52 

53 

1288 

182 

186 

1218 

185 

107 

it  a t 

81 

86 

. 

1998 

78 

80 

82 

2828 

76 

77 

2818 

76 

79 

.2828 

76 

81 

2848 

25 

26 

27 

3888 

....  .68 

69 

3818 

68 

73 

, .3828 

72 

75 

18888 

59 

60 

18818 

81 

116 

123 

18828 

34 

35 

18838 

J6 

37 

18848 

38 

39 

40 

18858 

23 

24 

18868 

21 

22 

18878 

119 

120 

13 

28  133 


41  42  43  «4  45  46 


* 


I 


t 


.GLQPU.Fa 


V27I362 ) 


22-APR-7* 


SUBROUTINE  AXIS3<X0,Y*.AMAX.AMiN.OELA#AINCM.BCC.NCR,NOEC>WR.DELN> 

DIMENSION  ICOU) 

HT  ■ ,10 

DEl*»S1GN<OELA,  <ANAX«AmIN)> 

H1»0. 

H2*0, 

H3  > 0, 

NEXP  > 0 
NCM*tA8S(NCR> 

IFiPWR.NE.I.)  NEXP  « 6 

ClNCu*ABJ ( A INCH ) , ..  .. 

IF  USilANAX^BllO  *A8S(OELl)  tO-11.  uMAiTAHl Vl/ClSST 

IF<UHAX-AMIN)/(0ELX*1.E-5'.GT,3.»CINCm)  OELX  » CAHAX-AMIN1/CIN6M 
IF (N0R.LT i0)  M3  • 1. 

NUM.lFIXt <AMAX-AMIN)/OELX*l.«> 

ANC«CINCH/FL0AT(NUM-1> 

1F(»INCH.LT.0. ICO  TO  s 

*2*1. 

CO  TO  i0 
5 Will, 

10  call  PLOT<X0.Y0.3> 

OElN«OELX/U.»»RMR/ANC 

ANUN«ANlN»OELX 

X«F.  - 

Y*0. 

XM«0 , 

DO  *r  1*1,  NUN 
ANUN*ANUN«OEUX 
I 1*0 

2?  IF < *BS « AMUM>/1® , •*! X ,LT , 1,150  TO  27 
n*ii*i 
CO  TO  25 

20  IFUNUM.LT. 0.M!»Ifl 

IFUBS(ANUM).LT.1.)  U«ll*l 
IMORCinDEC*! 

IF ( ]F IX ( Ml ) *1 .CO. 1 ) NT  « AM  INI  I NT  , ANC. FLOAT ( II *2 ) ) 

CENTER  * FL0AT(I1).HT/(1.*M1) 

OFF  • ,03 

XC  * X - CENTER  * H2*iM3#l, 38* CENTER'  - .15' 

IFIXC.IT.XMIXM.XC 

YC  * Y - M1»(HT  • .15  - - *|#PFF 

CALL  PlOT(X0*X.Y0.Y,2) 

CALL  PlOT(X0»X*.1*W2,Y0*Y.11*M1,3) 

CALL  PlOT(X0»X-.1*m2,Y0*Y-.1*M1,2) 

call  nunse*(xs*xc ,y0*yc»ht,anum,0. . NOEC ) 

CALL  PLOT{X0*X,Y0*Y.3> 

!!*X*ANC«M1  — - - ; 

Y*y»anc*n2 
R0  CONTINUE 

BST  i (CINCH  - FLOAT(NCM*N£XP>*. 121/2,  .... 

XXC  • Hl*(xa  ♦ BST ) . H2*(X0  ♦ XM  . OFF  • W3*'2;*“N  * 

YYC  • wl* ( Y0  ♦ YC  - .17  ♦ W3»(MT  ♦ ,22'  ) ♦ M2»IYI  ♦ 85T> 


L 


tlPlT. 

IV 

55 

M 

17 

II 

lf_ 


f 4 Mf  V2t(36P>  22-*M-74  11114 


call  SVNROl(XKC»*vC<  .12«IC0.M.*M|,»iCH1 
iPtpwp.eo.i. > pctupn 
cal;  WME4E  (XQ.TO.VXCI) 

CALL  |VH|QL<Xg,YQ, .17.5M  • II. 91. •4J. «) 
call  MMC’C  (XO.VO.XXCX) 

X • XQ  ♦ CXXC-.l|-X0)*«a 
x ■ *o  ♦ mc*.ii-vo>*wi 

call  NUMICKX.V,  .19, PtfP,9l, 

ICTU»N 

Sr  0El«  ■ l.C~3*ll.**Pw*/Ct*CM 
N*NCP/5 

w"ITC(5.1ll«>  ANAx(ahin.0CLA.PMR.<9CI)U).1*1«N> 
ipii  ro»M*T(iMi#27MiN*urnr!CNT  pancc  rn  axji  . 

J/.1X.46./.1X.13AU 
CALL  exit 
ICTUPN 
ENn 

CONIT A NT* 


p 

1 

1674141 11*44 

7 

1 *.3 J 7<2.9. 2 

3 

•l2.tll.431 

4 

1 

JlKl^llMfl 

• 

174431A43144 

1 

1 7946*144*14 

H 

744411.431. 

11 

12 

iMUPeMixa 

13 

175753412172 

14 

177712434541 

1» 

74134111727 

14 

174742. 14944 

i>_. 

SlOl.L 

1I12<<HH<I 

DUHHltS 

t* 

21 

21 

7994791*111 

13 

17994(9(793. 

>1 

•16 

T| 

657 

AMAX 

441 

AN  I N 

441 

OCl» 

442 

.inch  Its 

fl£Ul  171 

lUl.ROGMHS 

■ CO 

664 

«:« 

661 

NOCC 

444 

PNI 

647 

SIGN 

HIT 

1 A|*  *11 

irix 

ruO*T  plot 

CXP1.2 

CXP2.2  AHINl 

NU^ICI 

SVN«Ok  WMCIC 

»U10.; 

.CRKO.  tl(M| 

SC*l*M 


4X1  S3 

• 73 

mt 

674 

5CLX  675 

OCL  A 

442 

AHAX 

441 

AP|N 

Ml 

wi 

676 

-2  477 

Ml 

7|i 

NlXP 

711 

nqm 

712 

NC» 

665 

PPP  647 

CINCM 

713 

AlNCM 

643 

NUN 

714 

ANC 

715 

XI  654 

VI 

4»7 

Oil* 

671 

»NUn 

716 

X 

7P7 

x 711 

XM 

711 

1 

711 

II 

713 

|HO*C 

714 

NOCC  444 

CCNTd 

7J5 

orr 

714 

KC 

717 

TC 

7?f 

If T 721 

xxc 

7|t 

ttc 

713 

xQ 

724 

TO 

725 

xxex  724 

N 

7|7 

A*«AT| 


ICO  M4 


ill 

11 

12 

31 

34 

ainCm 

1 

11 

17 

15 

*5 

*Wil  - 

- -4 

4 

12 

13 

49 

ININ 

1 

4 

12 

13 

19 

?3 

JUUM 

37 

INC 

11 

22 

37 

41 

4t 

4* 

. AMUN 

2] 

20 

31 

33 

34 

mis 

1 

65 

ICO-  - 

1 

2 

94 

•ST 

51 

52 

93 

££MT(1 

31 

42 

92 

91 

63 

CINCn 

11 

U 

14 

nn  l 

1 

4 

45 

OCln 

1 

22 

63 

23 

21 

QIU — , 

. * (L 

12 

13 

15 

22 

CUT 

II 

91 

.flOAT 

14 

37 

36 

41 

53 

MT 

S 

3? 

34 

42 

1 

27 

37 

IS 

I All 

* 

37 

3' 

mi 

11 

19 

21 

31 

S3 

34 

34 

37 

31 

IflONC 

39 

36 

N 

14 

*5 

NCM 

f 

91 

54 

NCI 

1 

t 

14 

44 

- MMC- 

1 

39 

46 

HW 

• 

11 

91 

NUN 

19 

16 

27 

NUMICI 

4* 

61 

Off 

31 

42 

52 

47 

NLOt 

21 

43 

44 

45 

43 

49 

ink 

i 

if 

12 

55 

41 

SUN 

4 

. SYH10U 
Ml 
V2 

54 

9 

1 

97 
2 * 

16 

37 

41 

31 

42 

42 

44 

44 

45 

49 

49 

44 

92 

92 

53 

M) 

7 

14 

46 

4? 

52 

53 

iliflc 

K 

94 

24 

91 

42 

43 

44 

f«9 

47 

41 

99 

41 

XI 

1 

21 

43 

44 

'45 

46 

47 

92 

XC 

41 

41 

46 

SR 

24 

41 

12 

XI 

94 

97 

M 

54 

_U£ 

92 

54 

59 

xxex 

» 

94 

29 

56 

42 

43 

44 

49 

47 

49 

Cl 

41 

VI 

1 

21 

43 

44 

4» 

46 

47 

93 

1C 

41 

44 

53 

VO 

94 

57 

91 

At 

TT&. 

« 

54 

61 

11 

17 

2? 

III 

It 

21 

HP 

31 

3* 

111 

31 

32 

4ff 

27 

5? 

IM 

12 

63 

HIM 

49 

66 

APPENDIX  E FMAKE 


fHiJU.F*  F«0  V27I360)  22-APR-76  lttM 


DIMENSION  I OUH ( 2 ) 

DAT*  t OUM<  2) / ' , 0*T  * / 

COMMON  XX.YY.27.TT 
DIMENSION  lUABL(S) 
dimension  X(2*),Y(?8).7(20) 
implicit  COHPUtX  <e> 

DIMENSION  Cl(2*).C2<20>.C3C20) 

COMMON  /GROUND/  K. *1(20), 71120). X2(|/J0), 12(0/20). IEI. 

C 

C this  Section  access  the  input  or  the  Switch  joke  character)  TO 
C OETERMJNP  what  kino  of  file  to  generate, 

C <BLANK>  TO  LNfl  THE  PRQG8AH  . . . ..  

C Y TO  SET  ANTENNA  OFFSET  ANO  XHISSJON  WAVELENGTH 

C C FOR  (ROUND  DESCRIPTION 

C P FOR  FLIGHT  RaTH 

C A FOR  ANTENNA  DESCRIPTION 

2 HRt  TJ (5, 1013) 

REAOI3.1010)  nahe 
IF(n»mE  .EO.'  • ) GO  T0  3 
IF(N*ME  .CO.  *y«)  CO  TO  20 
IF(NAME  ,E0.  '6')  GO  TO  21 
IF  (NAME  ,E0,  'PM  CO  to  22 
IF (NAME  .EO.  '*•)  GO  TO  23 

WRITE(5.1012!  - 

GO  Tp  2 

C this  IS  the  INPUT  FOR  THE  ANTENNA  OFFSET  AND  FOR  THE 

C TRANSMISSION  WAVELENGTH,  ROTH  ARE  IN  F£Et  ‘ND  A*E  floating  POINT. 

20  W«JTEtS.10ll> 

REaOIS.IIU  T|,rl  - 

GO  T r 2 

c 

C THIS  SECTION  is  FOR  GROUNO  DESCRIPTION 

21  NR  I T| ( 5 , 101* I 
C 

c this  is  to  input  TNr  fjle  name  for  gpound  description 

REACH, 1*5)  lOUM(l) 

WR|TC(9.1*«) 

c 

C This  IS  TO  !n“UT  thF  PLOT  l*9EL  FOR  GROUND  DESCRIPTION 

REACH. 1*5)  (LA0L 

HR  J T0  H,  100 ) 

c 

C this  is  the  INPUT  for  the  ground  STRIP  EDGE  COORINATES 

C • DELTA  X-C00R01NATE  for  cartesian  and 

c RANGE  FOR  POLAR  COORDINATES 

c ii  DELTA  Y. COORDINATE  FOR  CARTESIAN  AND 

C USUALLY  gERO  FOR  POLAR  COORBIK*TES 

C TH|TA  1ER0  FOR  CARTESIAN  COO»CINATF*  AND 

C THE  CLCVaION  angle  for  pol*» 

c this  H the  input  fOR  the  STaRTHO  EDGE  OT  THE  FIRST  STRIP 

REACH,  101. EN0»2)  P. 72. THETa 
X?  U)  »R*COSD<  THETA  )-77»S  I NO  (THETA! 


V2TI360) 


22-APR-74 


tl«S4 


r« 


22(0) *R»S INDt  T HETA ) *Z2*C0S0 (THETA) 

KM 

HR1TECS.102> 

C 

c this  is  the  input  loop  for  the  rest  or  the  strip  edges.  the 

X XDULS  *8E  THE  TRaIi  imp  fogf  or  thf  parwiaus  atrip  aJ8B  imp 

c leading  edge  or  the  next,  the  loop  hill  continue  to  * naxihuh  or 
C TNENTV  STRIPS  OR  UNTIL  both  'R*  and  'Z2»  arc  zero. 

11  R£aO<5,101.ENO»2>  R.ZZ. theta 

IFIR.ME.2.)  CO  TO  s 

ir<2Z.NE.S.)  CO  TO  5 

lfilL.CO.Oi  CO  Jtti  - - - 

CO  TO  4 
S K»K«t 

X1<K)*X2IK*1> 

Zl(K)«I2<K*l) 

X2IKI«X2{K-1)»R*C0S0( THETA >-ZZ»SINO( THETA) 

22tK)aZ21K*l.)  tl*SlN01  TuETA)  »22»COSQ(  TMETAl 
IFfK.LT. 20)  CO  TO  6 
MR  I TC (S. IIS) 

GO  T«  4 
A WRITE(5.1S2) 

GO  TO  11 

-C  - 

C THIS  opens  A FILE  FOR  the  ground  DESCRIPTION,  outputs  it 

C IN  8IN*RY  4N9  CLOSES  THE  FILE.  FLQM  THEN  RETURNS  TC  THE  SNITCH  POINT. 
A CALL  OP  I LEI  21. IDUN(l) ) 

MRri(2S,lSS)  ILA8L 
MRJTE ( 20 ) K.X1.Z1.X2.Z2 

CALL  RELEAIC23)  

GO  TO  2 
C 

C THIS  IS  THE  SECTION  to  GENERA’E  A FL!ChT  PATH  riLl. 

22  MRlTt(S.lSlS) 

C 

C THIS  INPUTS  THE  TLIGT  PITH  FILE  NAME 

RE  AO (9. 1*5  > IDUM(I) 

C 

c this  is  to  create  the  hle  if  one  does  not  already  exist, 

C THIS  IS  NECESSARY  AS  JOVRaX  DOCS  NOT  CREATE  PILES. 

CALL  OriLE  120. lOUH(l) ) 

CALL  RELEA112I)  . . 

C 

C THIS  IS  TO  OEN  THE  FILE  FOR  JOVVRaX 

call  JOVSETll.IOUHID.NSIIE) 

HRITEIS.10S3) 

c 

_e  - - this  is  to  input  the  flight  pain,  plot  lasel  anc  jouipui.  it-tc 

c the  file 

REAOI9.105)  ILABL 
CALL  J0VM0 ( 1. I LASL .0.0) 

HRl TJ (s, 1000 ) 


..-ESINS  .FA 


I2-APH-7* 


llll* 


p«a 


1ST 


If* 

.11# 

111 

-ni- 


iis 

114 

119 


1H 

-Hi- 

ll* 

1U 

m 

in 

in 

-Hi- 

119 

-Hi 

117 

.12# 

11* 

- 1M 
131 
112 
133 
-Hi 
139 

.hi. 

137 

1)1 

13* 

1 *i 
141 
— lii. 
141 
144 
143 
-141 
147 
_l*i 

14* 

191 

191 

111 

193 

—ill 

191 

111 

1*7 

191 


c 

C This  SWITCH  IS  TO  SELECT  EITHER  3TRIGHT  Lift  FLIGHT  08 

C HYPERBOLIC.  *G*  INPUT  utLL  select  HVPCMOLle  ANYTHING  ELSE  MILL 
C GIVE  STRtCHT  LINE. 

R£aO<9.1PM)  I 
IF  1 1 .ME.  'CM  GO  TO  12 
C 

C THIS  1$  the  HYPERBOLIC  FLICT  SECTION 

W*IT((9,llli> 

c 

C this  IS  THE  INPUT  TO  DESCRIBE  THE  FLIGHT 

C UO  STARTING  X-OfliOlNAJE  _ _ 

C XF  ENOlNG  X. COORDINATE 

c h height  or  h«!n  element  used  to  detrhine  glide  angle 

C AND  HEIGHT  above  GROUND  07  ZERO  COI  SURFACE  AT  CLOSEST 

C APPROACH 

PEAO(S.ifi)  xb.xf.h 

M»lTtC9.1Mi>  ..  . _ — 

C this  input  is  for  The  flight  path  QUANTIZATION  PARAMETER! 

c nx  IS  The  number  or  points  along  the  flicnt  path 

c V IS  The  velocity  ift./sec.)  of  the  aircraft 

c tam  is  the  time  constant  c sec. > for  the  cvnahjc  col 

READ (9. 1117)  NK> V i TAU  

IF(nx  .LE.  •)  CO  To  2? 

CALL  J0VW0(1.TAUi1,») 

c 

C THIS  LOOP  GENERATES  ThC  COORH.ATEI  OF  THE  POINTS  ALONG  TH| 

C HYPERBOLA  and  OUTPUTS  THEN  TO  THE  flight  path  file 
*llBL»RL».29-K»H-Te»TB  . . 

A2.1,/a.«4,«H.H/RL/RL> 

ox.<xp.x«>/float<nx-1) 

XX. X? 

YT.0, 

TT,«. 

X0L»*3  . 

Z0l.SQRT((A1-XX*XX).A2) 

00  13  l«l,NK 
ZI.SORTUAl-XX.XXUA?) 

TEHPtXX-XOL 
TEMPI. ZI.IOL 

TT.TT.JORT ( TEHp.TJnP^  TEHP2.T£HP2 ’ FV 
CAa  JOVWOCI.XX.A.P) 

XOL«XX 

zol.R! 

XX.XK.OX 
13  CONTtNuE 

CO  TO  14 
C 

C this  SECTION  is  FOR  STRIGHT  Line  flight 

12  CONTINUE 

WRITC(S,1I#4> 


V27(36l)  22-AP8-76  UliA 


THESE  INPUTS  APE  TO  OESCRIBE  THE  FLIGHT  PATH 

XX  ST A*T INC  X-C00PQ1NATE  (FEET) 

VY  STARTING  Y-COOPOINATE  tFEETI 

22  ST*PT!*i5  E-COOPOINate  (FEET! 

XF  ENDING  X-COOPDINATE  (FEET) 

...YF  -ENDING  Y.COBPDINATE  iFEETi  

IF  ENOING  l>COOROINATE 

NK  NUMBER  CF  POINTS  ALONG  TH£  FL1SMT  PATH 

V VELOCITY  OF  AIRCRAFT  (FEET/SEC'.I 

TAL1  time  CONTANT  fop  DYNAMIC  CD1  HE) 

PfADIS.lPtl  XX.YY.EI 

_NRiI£LSiU15L  ..  . . 

REadu.ibd  xf.yf.if 
w«ITE(5.1BI6> 

PEA0(S.1BB7)  NK.V.TAU 
JF(  NX  .LC.  8>  GO  TO  22 
CALL  J0VU0(1.TAU»1,8> 

FNjNN-1  ..  . . 

ox«<xf;xx)/fn 

OY«<yf;yyj/fn 

0*«<*Fii*)/FN 

OT.SQPT(OX»DX*OY*Oy*DI»DI)/v 

tt.*; 

LOOP  TO  GENERATE  X-.Y.,  AND  l-COOPOINATES  ANC  OUTPUT  THEM 
THE  FLIGHT  PATH  FILE 
00  1 I • 1 i NK 
CALL  JOVMOUiXX.A.f) 

XX.XXtQX 

TTiYT*DY 

22i|l*02 

TT.TT*OT 

THIS  CLOSES  the  FLIGHT  Path  FJlE  ANO  PETUPNS  TC  SNITCH  POINT 
call  J5VPELU) 

GO  TO  2 

THIS  section  is  TO  GENERATE  antenna  DESCRIPTION  file 
n>« 

NP I T£ (5  > 117 ) 

INPUT  FOP  ANTENNA  file  NAME  . 

R£aD<S,2MI>  ILBL 

WRITI(S.1SII 

INPUT  FOP  ANTENNA  PLOT  LABEL 
RCaOIS.KS)  ILABL 

N*1  _ . _ 

THIS  IS  THE  INPUT  FOP  ELEHENT  DESCRIPTION 
X<J)  X-COOROINATE  OF  I’Tm  ELEMENT  (FEET) 

1(1)  I-COOROINATE  of  I'Th  ELEMENT  (FEET) 

Cl(I)  COMPLEX  AMPLITUDE  of  CARRIER  COMPONENT  OF  I'TH  CLEMENT 


F4f  V27(36f) 


C AND 

C POI 

i«i 

9 

111 

24* 

1*1 

m 

Ml 

283 

m 

C 

233 

C 

131 

237 

3 

231 

1(12 

239 

1213 

_ 111 

m« 

241 

1813 

2*2 

1*17 

2*3 

131* 

It* 

134 

2*3 

113 

C C21 1 1 complex  amplitude  or  in  hi  sideband  or  t ' th  elEhint 

C C3(I)  COMPLEX  »«»L|TU0C  or  »f  Ml  SI0E3ANQ  cr  I'TM  CLEMENT 

c the  program  mill  loop  thru  if  tor  additional  elements  until  a 
C !£*0  is  ENCOUNTERED  TQR  Kn) 

MRITE<3.U17) 

if  READI5.2H1)  X ( N) , 21N) . Cl (N) ,C2( N),C31N) 
ir<  *{N)  ,E0.  S)  CO  Tg  » 

C 

C this  SECTION  DETERMINES  the  v »rr$ET  or  EACH  element,  this 

C IS  NOMINALLY  Yf  BUT  THERE  IS  A SMALL  CHANCE  (LESS  THEN  ON£  NAVCLENCTH) 
C rOR  NEAR  riELO  CORRECTION  PURPOSES 
SNiSlCNll. «2(N)-2ll ) ) 
iriN  ,NE.  1»  60  TO  n 
Y(1J«Y* 

r«so»T«rR.Ti»2(ii«f<i») 

CO  TO  16 

13  Xi.YR-JQRT(r«r-i<N)*E(N>) 

If (Xf*3M  .LT.  e.)  CO  TO  17 
n XP.VH-SONTI ir.RLl»cr.RL>-l(N)«2(N)l 

ir(xp»SH  ,lt.  f.)  CO  TO  18 
r«r»RL«Sw 
xa.xR 

CO  TO  19 
17  r.r.RL«SH 

CO  TO  15 

If  Y<NHYf-Xf 

16  CONTINUE 

N*N*1 
CO  TO  ll 

c . 

c this  section  ou’puts  the  antenna  oeIcrTStion  tc  the  pile 


NEl«n-i 

call  OflLE(2*.  URL) 

««ITE(20vliSI  U A|l  ...  

H*l  TEI2B ) RL.NEL.  (xin.YU  ) .11  I ) . Cl  ( I ).C*(l  ).C!M  >.I»liNtL> 
NR]  TE(  J.1R16I  UASl 

HR  I TE  ( 3>  2M1 1 (X(I),v(n,Zn>.Ci(n,C2(I).C3U).I*l.NEL) 
Call  RELE6SI2I) 

CO  TO  2 

This  IS  the  PROGRAM  termination  POINT 
call  EXIT 
STOP 

rORMAT  C ' • UNKNOMN  SNITCH,’) 

rORHATI 1 INPUT  SNITCMI',*) 

rORHAT  ( ' INPUT  (JRCUNO  TJLE  NAHEi'iS) 

rORMAT ( ' INPUT  FLIGHT  path  riLr  NA»C>'.S) 

rORHATC  INPUT  ELEMENT  VALUES,.’,/) 

rORHATI2X,6A5) 

rORHAT ( * INPUT  GROUND  l»BEL'-/> 
rORHAT I6AS) 


i 


*\ UICJ4 

r«a 

IM 

in 

U1 

IM 

M* 

m 

— au 

lit 

in 

in 

an 

it« 

in 

an 

HI) 

an 

mi 

U! 

Ull 

IT* 

mi 

an 

1«U 

HI 

1994 

an 

1999 

a*a 

HU 

Ul 

Ml 

IM 

in 

IM 

an 

IM 

199 

UT 

mi 

Ml 

r«a  vs Tts*9> 


mum*  ih»ut  c«C'j*ir  $ccwc*rs.  iT*aTjnt  r*e«  a*tci»u.»,/, 
C1VC  CMKCuTUCl*  € 1 tm£9  * AMD  1 IkCKlVUTI.  c*  T *£'./, 

?'  iC^CtM  **9  amClC  f»c*.  rfO»HO«<**L  1«*  ntiKCl.  I£9A9*TfO*,/. 
3*  ■»  A <1*0.  «!T  CAMUCC  *£*U**‘  ffi*  £40  Of  0*TA.'»/. 

A'  OK  If  T*t*£  A»c  hC  »0*»f  $*•!*£.  '•/#  * 

ronfiAtisr  i 

fOVMATC  OttiT  29  &90LL0  SCC*C»rS  AUWO,  COH’UVaTIOM  mill 
1*  M^CKO  Mp*  d*t4  ALtEAOT  0*"A I**C9.  * . /) 

ro*»ur( •-  • '#$> 

rOUHATf.  |4fUT  FL1CH’  »A?* 

fOMNATf  IMMOT  rLiC-T  *atm  t»9|:'**I 

rottiTou 

rotnf*1.  I»»ut 

FOMiTI ''  !»*UT 

ro»mtr  in»ut  «a,«g.isi*.t> 
romuTi'  ii.»ut  ir.yr .in • ,»i 

F0»MTC  l«»UY  • cr  **UTS,  YClSCIY*.  Tl»t  C0>l5Y»»T|>,|i 

ro«H*t(i,*ri 

ro»«»tt'  1h*uy  m’ftvi  f urii'aii 

ro*«»Ti»*i 

fommi*  i*i»uy  •<iYr*i'i>  0Me*i»».5**,/i 
f 0««*Ti*r ) 
l VI 


* 

?I1M‘I2^M 

1 

$4**149291*9 

? 

3 

titiMimii 

4 

4MMMII1M 

i 

XI 

* 

f 99001919211 

1 

19 

MMMMMM 

a 

HMIMMIM 

CO-mO* 

II 

YY 

/.C3m«./*1 

If 

/.C0>H.'*2 

T* 

H 

/s»ou»0/.« 

U /640UND/.1 

UiVROUAtll 

11 

/t»T  j40/«29 

It 

/C0OLNC/*S1 

12 

/69CUM0/*79 

I el 

/S*SUM/»1I1 

rQ«lt. 

AL9m3, 

.jirr  £40. 
alMmI.,  ri^uT. 

COSO 

fl!9T. 

S14C  0r , lC 

!*To.  INM. 

II9M9, 

9ELCAS  jOVIE* 

JOVMO 

Ii.0*T  10*  T 

jo*Ml 

lift*  cut 

ICAlAM 

4AM| 

1419 

a 

1411 

•i. 

1412 

9 

141) 

II 

t 

THETA 

1414 

4 

f 

wstlf 

1419 

1 

1414 

XI 

1427 

*r 

Mil 

M 

1421 

M4 

1412 

i 

1421 

YAU 

1414 

a 

1421 

• 2 

142* 

OS 

1422 

u 

• 

YY 

1 

TT 

3 

m 

1432 

I0L 

1411 

T|Hf 

MI* 

TEH92 

1439 

if 

1414 

IF 

143S 

fk 

14U 

DY 

MIT 

HI 

1MI 

nT 

If 

1441 

1449 

4 

NEL 

144? 

144? 

!llL 

UL 

14*.  J 

HI 

ft* 

1444 

r 

1449 

V 

f 


l 

r 4# 

viffSili 

Ul(4 

fou* 

Cl 

XI 

14M 

91 

U.401 

Cl 

12 

1«92 

16t« 

n 

X 

Cl 

1441 

lift 

t 

XI 

I9li 

1 

I 

II 

T*« 

*» 

JQVfttL 

JOVUO 

« 

N 

tti. 


143 

143 

-III  - 

2A9 

251 

— - - 

- - 

----  — 

■ 

■— 

21« 

249 

231 

218 

249 

291 

94 

70 

71 

191 

192 

in 

101 

101 



111 

119 

111 

1*8 

22« 

231 

233 

>36 

178 

199 

130 







— — 

136 

112 

2 

137 

144 

37 

186 

00 

249 

91 

251 

94 

«• 

- 

41 

11 

114 

113 

2*6 

140 

238 

_ 

247 

132 

55 

287 

149 

89 

21* 

176 

• 7 

219 

187 

61 

224 

69 

225 

70 

229 

71 

tn 

72 

230 

•1 

240 

146 

19 

<• 

21 

22 

23 

249 

131 

231 

138 

144 

174 

1>9 

177 

186 

♦ 4 

33 

247 

94 

62 

63 

70 

71 

95 

136 

292 

137 

231 

233 

236 

149 

54 

145 

T8 

145 

71 

101 

227 

229 

131 

138 

232 

233 

>36 

132 

If  4 

176 

»« 

62 

70 

!»• 

112 

191 

IT* 

101 

14* 

291 

IJT 

229 

>30 

•2 

48 

70 

• 2 

172 

170 

»»• 

m* 

142 

14’ 

143 

238 

241 

291 

144  l*t 


t 


Y0 

39 

136 

226 

IF 

172 

179 

YY 

3 

142 

170 

2 

5 

216 

“it 

U 

• 

69 

62 

22 

1 

54 

69 

V 

172 

160 

20* 

143 

147 

151 

1? 

3 

5? 

53 

1* 

166 

191 

20 

17 

<5 

31 

10 

10 

255 

40 

66 

74 

60 

90 

63 

64 

67 

• 0 

72 

75 

t0 

219 

24ft 

100 

211 

?«i 

__  UP 

62 

76 

120 

112 

197 

130 

164 

153 

140 

194 

194 

190 

229 

229 

• 3 " 

110 

220 

239 

lit 

230 

23ft 

100 

232 

236 

lt0 

2il 

235 

200 

?• 

29 

210 

21 

34 

220 

22 

07 

Hi 

210 

23 

190 

1100 

4? 

26ft 

1«0 

30 

52 

62 

1020 

96 

75 

274 

113* 

73 

272 
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